#!/usr/bin/perl

use XML::Simple; 
use RPC::XML::Client;

use warnings;
use strict;

my $xml = <<END;
<micasa>
    <habitacion id="comedor">
        <mueble>aparador</mueble>
        <mueble>Sofá</mueble>
        <puerta a="salon">p1</puerta>
    </habitacion>
    <habitacion id="comedor">
        <mueble>aparador</mueble>
        <mueble>Sofá</mueble>
        <puerta a="salon">p2</puerta>
    </habitacion>
    <habitacion id="dormitorio">
        <mueble>cama</mueble>
        <mueble>armario</mueble>
        <puerta a="cuarto">p3</puerta>
    </habitacion>
</micasa>
END

my $url = 'http://dario@localhost:8080/exist/xmlrpc';

my $client = new RPC::XML::Client $url;

my $options = RPC::XML::struct->new(
    'indent' => 'yes', 
    'encoding' => 'UTF-8',
    'highlight-matches' => 'none');

my $req = RPC::XML::request->new("parse", RPC::XML::base64->new($xml) , RPC::XML::string->new("/db/aap/prueba.xml"), RPC::XML::int->new(1));
 
my $response = $client->send_request($req);
